简单坐标正反算5800

houdianyuan

1、坐标正算：
“XA”?A:“YA”?B
Lb1 0:“JULI”?C:“FWJ”?D
COS(D)×C+A→X
SIN(D)×C+B→Y
“XB=”:X◢
“YB=”:Y◢
Goto 0
注，XA,YA 为A 点坐标；JULI 为AB 两点的水平距离；FWJ 为A 点到B
点的方位角；XB,YB 为求出的B 点坐标。
2、坐标反算：
“XA”?A:“YA”?B：“XB”?C:“YB”?D
Pol(C-A,D-B):Cls
If J<0:Then J+360→F:Else J→F:IfEnd
“JULI=”:I◢
“FWJ=”:F DMS